www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/admin/Conn.asp
<% Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn SqlDatabaseName = "wygkcnsql" 'SQL数据库名 SqlPassword = "123456" 'SQL数据库用户密码 SqlUsername = "sa" 'SQL数据库用户名 SqlLocalName = "(local)" 'SQL主机IP地址(本地可用“127.0.0.1”或“(local)”,非本机请用真实IP) ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr sub CloseConn() conn.close set conn=nothing end sub %>